home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 7 / 007.d81 / sys changer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.3 KB  |  56 lines
  1. 10 z$=chr$(0)
  2. 20 gosub 10000
  3. 100 open15,8,15
  4. 110 print"[144]";
  5. 200 input"[215]hat file to sys change?";sf$
  6. 300 input"[215]hat file to call it   ?";df$
  7. 400 open2,8,2,sf$+",p,r"
  8. 500 open3,8,3,df$+",p,w"
  9. 600 get#2,l$,h$:l$=l$+z$:h$=h$+z$
  10. 700 print"[207]ld sys address = ";asc(l$)+256*asc(h$)
  11. 800 input"[206]ew sys address =";ns$
  12. 850 print"[215]orking..... as hard as i can...";
  13. 900 ns=val(ns$)
  14. 910 h%=ns/256
  15. 920 l%=256*(ns/256-h%)
  16. 930 h$=chr$(h%):l$=chr$(l%)
  17. 940 print#3,l$;
  18. 950 print#3,h$;
  19. 960 get#2,a$
  20. 961 i=i+1:ifi=39theni=0:print".";
  21. 965 ifst<>0then1000
  22. 970 a$=left$(a$+z$,1)
  23. 980 print#3,a$;
  24. 990 goto960
  25. 1000 s=st:print:  print"done with transfer."
  26. 1010 close2:close3:close15
  27. 1900 ifs<>64then30000
  28. 2000 goto60000
  29. 10000 print"[147]":poke53281,3:poke53280,12:print""
  30. 10010 print"[147]";:gosub 20000
  31. 10100 print"             [211]ys   [195]hanger":print
  32. 10110 gosub 20000
  33. 10120 print"";:gosub20000
  34. 10200 print"            by [202]immy [215]eiler":print
  35. 10300 gosub 20000
  36. 10900 return
  37. 20000 print"";:forc=1to40:print" ";:next:print"[145][146]":return
  38. 30000 print: print"[147][193][193][210][199][200]!!!!":print:print"fault.. fault.. fault.."
  39. 30002 poke 53281,9
  40. 30010 print:print"[212]he file you wanted is not complete."
  41. 30020 print:print"[201] died with an error."
  42. 30025 print:print"[211]tatus = "st
  43. 30027 print:print:print"           <press that key>":poke198,0:wait198,1
  44. 30030 goto60000
  45. 30040 :
  46. 60000 print"[147]1. [196]o another file"
  47. 60002 print"2. [210]eturn to [204][207][193][196][211][212][193][210]."
  48. 60004 print:print:print"[215]hich?"
  49. 60010 poke198,0:wait198,1:k=peek(197):getk$
  50. 60020 ifk<>56andk<>59then60010
  51. 60030 ifk=56then10
  52. 60040 :
  53. 60050 rem    connect back to loadstar
  54. 60060 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  55. 60070 poke198,0:poke631,13:poke632,13:poke198,2:end
  56.